home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / mu_tool / tmenutif.bas < prev    next >
Encoding:
BASIC Source File  |  1993-11-30  |  2.2 KB  |  78 lines
  1. 10000 '-----------------------------------------------------------
  2. 10010 '----------  壁紙作成ツール TMENUTIF.BAS          ----------
  3. 10020 '----------  制作  STUDIO MU  風の谷のガンダルフ  ----------
  4. 10030 '-----------------------------------------------------------
  5. 10040 '
  6. 10050 DIM PAT%(76800),WIN%(1792)
  7. 10060 ON ERROR GOTO *ERR_TRAP
  8. 10070 '
  9. 10080 *MAIN
  10. 10090 '
  11. 10100 COLOR 7,0:CLS
  12. 10110 LDNAME$="TMP_LD":SVNAME$="TMP_SV"
  13. 10120 '
  14. 10130 *INPUT_PARA
  15. 10140 '
  16. 10150 BEEP
  17. 10160 INPUT "ロードファイル名";A$
  18. 10170 IF A$<>"" THEN LDNAME$=A$
  19. 10180 INPUT "セーブファイル名";A$
  20. 10190 IF A$<>"" THEN SVNAME$=A$
  21. 10200 INPUT "Ｘ方向オフセット";A$
  22. 10210 IF A$<>"" THEN OFST_X=VAL(A$)
  23. 10220 INPUT "Ｙ方向オフセット";A$
  24. 10230 IF A$<>"" THEN OFST_Y=VAL(A$)
  25. 10240 INPUT "Ｘ方向ステップ　";A$
  26. 10250 IF A$<>"" THEN STP_X=VAL(A$)
  27. 10260 INPUT "Ｙ方向ステップ　";A$
  28. 10270 IF A$<>"" THEN STP_Y=VAL(A$)
  29. 10280 '
  30. 10290 PRINT"ロードファイル名:";LDNAME$;".TIF"
  31. 10300 PRINT"セーブファイル名:";SVNAME$;".TIF"
  32. 10310 PRINT USING"オフセット(####,####)";OFST_X;OFST_Y
  33. 10320 PRINT USING"ステップ  (####,####)";STP_X;STP_Y
  34. 10330 PRINT"よろしいですか（Y/N）？"
  35. 10340 A$=INPUT$(1)
  36. 10350 IF A$="N" OR A$="n" THEN *INPUT_PARA
  37. 10360 '
  38. 10370 CLS
  39. 10380 E=0
  40. 10390 LOAD@ LDNAME$+".TIF",(OFST_X,OFST_Y)
  41. 10400 IF E THEN BEEP:PRINT"ロードファイルが見つかりません":GOTO *INPUT_PARA
  42. 10410 BEEP:A$=INPUT$(1)
  43. 10420 '
  44. 10430 GET@A(0,0)-(STP_X-1,STP_Y-1),PAT%
  45. 10440 '
  46. 10450 FOR Y=0 TO 479 STEP STP_Y
  47. 10460   FOR X=0 TO 639 STEP STP_X
  48. 10470     PUT@A(X,Y)-(X+STP_X-1,Y+STP_Y-1),PAT%
  49. 10480   NEXT
  50. 10490 NEXT
  51. 10500 '
  52. 10510 BEEP:A$=INPUT$(1)
  53. 10520 '
  54. 10530 GET@A(212,240)-(429,271),WIN%
  55. 10540 LINE(212,240)-(429,271),PSET,0,BF
  56. 10550 SYMBOL(228,248),"セーブしますか（Y/N）？",1,1,7
  57. 10560 A$=INPUT$(1)
  58. 10570 IF A$="N" OR A$="n" THEN *MAIN
  59. 10580 '
  60. 10590 PUT@A(212,240)-(429,271),WIN%
  61. 10600 E=0
  62. 10610 SAVE@ SVNAME$+".TIF",(0,0)-(639,479),1
  63. 10620 IF E THEN
  64. 10630   BEEP
  65. 10640   LINE(212,240)-(429,271),PSET,0,BF
  66. 10650   SYMBOL(228,248),"上書きしますか（Y/N）？",1,1,7
  67. 10660   A$=INPUT$(1)
  68. 10670   IF A$<>"N" AND A$<>"n" THEN
  69. 10680     KILL SVNAME$+".TIF"
  70. 10690     GOTO 10590
  71. 10700   ENDIF
  72. 10710 ENDIF
  73. 10720 GOTO *MAIN
  74. 10730 '
  75. 10740 *ERR_TRAP
  76. 10750 '
  77. 10760 E=ERR:RESUME NEXT
  78.